home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / ilisp / ilisp-cl.el.z / ilisp-cl.el
Encoding:
Text File  |  1998-05-21  |  3.5 KB  |  143 lines
  1. ;;; -*- Mode: Emacs-Lisp -*-
  2.  
  3. ;;; ilisp-cl.el --
  4.  
  5. ;;; This file is part of ILISP.
  6. ;;; Version: 5.8
  7. ;;;
  8. ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
  9. ;;;               1993, 1994 Ivan Vasquez
  10. ;;;               1994, 1995, 1996 Marco Antoniotti and Rick Busdiecker
  11. ;;;               1996 Marco Antoniotti and Rick Campbell
  12. ;;;
  13. ;;; Other authors' names for which this Copyright notice also holds
  14. ;;; may appear later in this file.
  15. ;;;
  16. ;;; Send mail to 'ilisp-request@naggum.no' to be included in the
  17. ;;; ILISP mailing list. 'ilisp@naggum.no' is the general ILISP
  18. ;;; mailing list were bugs and improvements are discussed.
  19. ;;;
  20. ;;; ILISP is freely redistributable under the terms found in the file
  21. ;;; COPYING.
  22.  
  23.  
  24. ;;;
  25. ;;; ILISP Common Lisp dialect definition
  26. ;;;
  27.  
  28.  
  29. ;;;%%Common LISP
  30.  
  31. (defvar ilisp-cl-ilisp-package-file "ilisp-pkg.lisp")
  32.  
  33. (defvar ilisp-clisp-init-file "cl-ilisp.lisp")
  34.  
  35. (defdialect clisp "Common LISP"
  36.   ilisp
  37.   (setq ilisp-load-or-send-command 
  38.     "(or (and (load \"%s\" :if-does-not-exist nil) t)
  39.              (and (load \"%s\" :if-does-not-exist nil) t))")
  40.  
  41.   ;; The following line is an incredible kludge to bypass the behavior
  42.   ;; of ilisp-load-init and to stick the package file in front of
  43.   ;; everything.
  44.   ;; Check what ilisp-load-init does to understand why I am forced to
  45.   ;; do this.
  46.   ;; Marco Antoniotti 11/22/94
  47.   (ilisp-load-init 'ilisp-package-kludge ilisp-cl-ilisp-package-file)
  48.  
  49.   (ilisp-load-init 'clisp ilisp-clisp-init-file)
  50.   (setq ilisp-package-regexp
  51.     "^[ \t]*(in-package[ \t\n]*"
  52.  
  53.     ilisp-package-command
  54.     "(let ((*package* *package*)) %s (package-name *package*))"
  55.  
  56.     ilisp-package-name-command
  57.     "(package-name *package*)"
  58.  
  59.     ilisp-in-package-command
  60.     "(in-package \"%s\")"
  61.  
  62.     ilisp-last-command
  63.     "*"
  64.  
  65.     ilisp-save-command
  66.     "(progn (ILISP:ilisp-save) %s\n)"
  67.  
  68.     ilisp-restore-command
  69.     "(ILISP:ilisp-restore)"
  70.  
  71.     ilisp-block-command
  72.     "(progn %s\n)"
  73.  
  74.     ilisp-eval-command
  75.     "(ILISP:ilisp-eval \"%s\" \"%s\" \"%s\")"
  76.  
  77.     ilisp-defvar-regexp
  78.     "(defvar[ \t\n]")
  79.  
  80.   (setq ilisp-defvar-command 
  81.     "(ILISP:ilisp-eval \"(let ((form '%s)) (progn (makunbound (second form)) (eval form)))\" \"%s\" \"%s\")")
  82.  
  83.   (setq ilisp-compile-command
  84.     "(ILISP:ilisp-compile \"%s\" \"%s\" \"%s\")"
  85.  
  86.     ilisp-describe-command
  87.     "(ILISP:ilisp-describe \"%s\" \"%s\")"
  88.  
  89.     ilisp-inspect-command
  90.     "(ILISP:ilisp-inspect \"%s\" \"%s\")"
  91.  
  92.     ilisp-arglist-command
  93.     "(ILISP:ilisp-arglist \"%s\" \"%s\")")
  94.  
  95.   (setq ilisp-documentation-types
  96.     '(("function") ("variable")
  97.       ("structure") ("type")
  98.       ("setf") ("class")
  99.       ("(qualifiers* (class ...))")))
  100.  
  101.   (setq ilisp-documentation-command
  102.     "(ILISP:ilisp-documentation \"%s\" \"%s\" \"%s\")")
  103.  
  104.   (setq ilisp-macroexpand-1-command 
  105.     "(ILISP:ilisp-macroexpand-1 \"%s\" \"%s\")")
  106.  
  107.   (setq ilisp-macroexpand-command
  108.     "(ILISP:ilisp-macroexpand \"%s\" \"%s\")")
  109.  
  110.   (setq ilisp-complete-command 
  111.     "(ILISP:ilisp-matching-symbols \"%s\" \"%s\" %s %s %s)")
  112.  
  113.   (setq ilisp-locator 'lisp-locate-clisp)
  114.  
  115.   (setq ilisp-source-types 
  116.     '(("function") ("macro") ("variable")
  117.       ("structure") ("type")
  118.       ("setf") ("class")
  119.       ("(qualifiers* (class ...))")))
  120.  
  121.   (setq ilisp-callers-command
  122.     "(ILISP:ilisp-callers \"%s\" \"%s\")"
  123.  
  124.     ilisp-trace-command
  125.     "(ILISP:ilisp-trace \"%s\" \"%s\" \"%s\")"
  126.  
  127.     ilisp-untrace-command
  128.     "(ILISP:ilisp-untrace \"%s\" \"%s\")")
  129.  
  130.   (setq ilisp-directory-command
  131.     "(namestring *default-pathname-defaults*)"
  132.  
  133.     ilisp-set-directory-command
  134.     "(setq *default-pathname-defaults* (parse-namestring \"%s\"))")
  135.  
  136.   (setq ilisp-load-command
  137.     "(load \"%s\")")
  138.  
  139.   (setq ilisp-compile-file-command 
  140.     "(ILISP:ilisp-compile-file \"%s\" \"%s\")"))
  141.  
  142. ;;; end of file -- ilisp-cl.el --
  143.